The Atari Compendium/The Atari Compendium (Toad Computers) (1994).iso/files/prgtools/programm.ing/m2gem106.lzh/CRYSTAL1.06/TST/HELLO/HELLO.M2

Text File | 1991-12-21 | 401 b | 18 lines

MODULE Hello;

FROM ApplMgr   IMPORT ApplInit,ApplExit;
FROM FormMgr   IMPORT FormAlert;
FROM PORTAB    IMPORT UNSIGNEDWORD;
FROM SYSTEM    IMPORT ADR;

VAR Button     : UNSIGNEDWORD;
    AlertString: ARRAY[0..255] OF CHAR;

BEGIN
  IF ApplInit() >= 0 THEN
    AlertString:= "[1][| Hello World! |][  OK  ]";
    Button:= FormAlert(1,ADR(AlertString));
    ApplExit;
  END;
END Hello.